#!/usr/bin/perl -w
use strict;

my $str = "abcdefghijklmn";

print substr($str,0,5);
